check COMMAND """dock_save "m" HORIZ %s""" ATTRS MUIA_Selected hflag HELP """If checked then the dock\nwill be horizontal."""
label 'Frame'
check COMMAND """dock_save "m" FRAME %s""" ATTRS MUIA_Selected fflag HELP """If checked then the dock\nwill have a frame."""
label 'Virtual'
check COMMAND """dock_save "m" VIRTUAL %s""" ATTRS MUIA_Selected vflag HELP """If checked then the dock\nwill be a virtual group."""
label 'Dragbar'
check COMMAND """dock_save "m" DRAGBAR %s""" ATTRS MUIA_Selected dflag HELP """If checked then the dock\nwill have a drag bar."""
space HORIZ
endgroup
group HORIZ
group FRAME
group ID BICON ATTRS MUIA_Weight 0 HELP """Drop an icon from either\nthe dock or the Workbench.\nDrag this icon to the\ndock to change a dock icon.\nNote that dock icons can be\nrearranged by drag and drop."""
group ID 'G00'
button ID '00' ATTRS MUIA_Frame MUIV_Frame_Group MUIA_FixWidth 40
endgroup
endgroup
cycle ID BTYPE HELP """Select the type of icon.""" LABELS "button,switch,pop"
endgroup
group ID MGRP REGISTER LABELS "Press,App,Drop,Pop,Add"
group ID PGRP HORIZ
group
label DOUBLE "command:"
label DOUBLE "port:"
endgroup
group
popasl ID PCOMM ATTRS MUIA_CycleChain TRUE MUIA_String_MaxLen 160 HELP """Enter a command or drop command\nfrom Workbench or directory utility."""
string ID PPORT ATTRS MUIA_CycleChain TRUE HELP """Enter port name for command."""
endgroup
endgroup
group ID AGRP HORIZ
group
label DOUBLE "command:"
label DOUBLE "port:"
endgroup
group
popasl ID ACOMM ATTRS MUIA_CycleChain TRUE MUIA_String_MaxLen 160 HELP """Enter a command or drop command\nfrom Workbench or directory utility."""
string ID APORT ATTRS MUIA_CycleChain TRUE HELP """Enter port name for command."""
endgroup
endgroup
group ID DGRP HORIZ
group
label DOUBLE "command:"
label DOUBLE "port:"
endgroup
group
popasl ID DCOMM ATTRS MUIA_CycleChain TRUE MUIA_String_MaxLen 160 HELP """Enter a command or drop command\nfrom Workbench or directory utility."""
string ID DPORT ATTRS MUIA_CycleChain TRUE HELP """Enter port name for command."""
COMMAND """string ID LSTR CONTENT %s""" PORT DOCK,
HELP """Drop a command from Workbench\nor directory utility.\nDouble click entry to edit."""
group HORIZ
string ID LSTR COMMAND """list ID LLST INSERT POS '"MUIV_List_Insert_Bottom"' STRING =%s""" PORT DOCK ATTRS MUIA_String_MaxLen 160 HELP """Enter a MUIRexx command."""
button COMMAND """list ID LLST POS "MUIV_List_GetEntry_Active" STRING""" PORT DOCK ATTRS MUIA_Weight 0 HELP """Delete selected command from list.""" LABEL "Del"
COMMAND """string ID ISTR CONTENT %s""" PORT DOCK,
HELP """Double click entry to edit."""
group HORIZ
string ID ISTR COMMAND """list ID ILST INSERT POS '"MUIV_List_Insert_Bottom"' STRING =%s""" PORT DOCK ATTRS MUIA_String_MaxLen 160 HELP """Enter a MUIRexx command."""
button COMMAND """list ID ILST POS "MUIV_List_GetEntry_Active" STRING""" PORT DOCK ATTRS MUIA_Weight 0 HELP """Delete selected command from list.""" LABEL "Del"
endgroup
endgroup
endgroup
endgroup
group HORIZ
button ID BADD HELP """Add the icon to the end of\nthe dock.""" PORT INLINE COMMAND """
options results;
address dock;
getvar EDIT;
m = result;
getvar 'D'||m;
n = result+1;
setvar 'D'||m n;
call dock_set m n;
call dock_save m;
getvar 'N'||m;
call dock result m;
call dock_mode m 0 0;
setvar ITEM n;""" LABEL "add"
button ID BDEL HELP """Delete this icon from the dock.""" PORT INLINE COMMAND """
